﻿Public Class frmProgressBar
    Public tam As Integer
    Public cont As Integer = 0
    Private Sub frmProgressBar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        pbStatus.Maximum = tam
        pbStatus.Minimum = 0
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If cont = tam Then
            Me.Close()
        Else
            cont = cont + 1
            pbStatus.Value = cont
        End If


    End Sub
End Class